0 POKE53280,0:POKE53281,0:PRINTCHR$(14);"[147]  [196]UMPER BY [210]ICHARD AND [196]AVID [194]RADLEY"
1 FORI=1TO38:PRINT"-";:NEXTI:PRINT:FORI=1TO5000:NEXTI
2 PRINT"[196]O [217]OU [200]AVE [193] 1525 OR [205][208][211]-801?":GETBS$:IFBS$=""GOTO2
3 IFBS$="Y"THENOPEN4,4,7:Q=1:PRINT"[217]ES!"
4 IFQ<>1THENPRINT"[206]O!"
5 PRINT"[201]S YOUR PRINTER READY?":GETBS$
6 IFBS$=""THEN5
7 IFBS$="Y"THENPRINT"[217]ES!":GOTO9
8 PRINT"[206]O!":END
9 FORI=1TO2500:NEXT:PRINT"[147]"
10 OPEN1,8,3,"FIRSTDIAL3 DOC,S,R"
15 IFQ<>1THENOPEN4,4
20 GET#1,A$
21 IFA$=CHR$(34)THENA$="":GOTO35
25 IFST<>0THENCLOSE1:END
30 PRINTA$;
35 PRINT#4,A$;
40 GOTO20